home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 19.zip / BS1 part 19 / how to learn assembler.adf / CH5 / 5_5A_tone.asm < prev    next >
Assembly Source File  |  1988-02-25  |  441b  |  25 lines
  1. ;** Tone using Hardware-Register  ** (5.5A)
  2.  
  3. ctlw = $dff096
  4. c0thi = $dff0a0
  5. c0tl = c0thi+4
  6. c0per = c0thi+6
  7. c0vol = c0thi+8
  8.  
  9. ;!!! when > 500KB !!!
  10. ;org $40000
  11. ;load $40000
  12. ;!!!!!!!!!!!!!!!!!!!!
  13.  
  14. beep:
  15.  move.l #table,c0thi   ;Table beginning
  16.  move   #4,c0tl        ;Table length
  17.  move   #300,c0per     ;Sample rate
  18.  move   #40,c0vol      ;Volume
  19.  move   #$8201,ctlw    ;Start DMA (Sound)
  20.  rts
  21.  
  22.  datatable: dc.b -40,-70,-40,0,40,70,40,0
  23.  
  24.  end
  25.